Los siguientes gráficos han sido generados a partir de los datos publicados por el Ministerio de Salud.

# Carga de graphics
library(graphics)

# Carga de ggplot2
library(ggplot2)

# Carga de plotly
library(plotly)

# Carga de dplyr
library(dplyr)

# Carga de datos desde un archivo CSV
cr_covid19 <- 
  read.csv(
    file='https://raw.githubusercontent.com/gf0604-procesamientodatosgeograficos/2021i-datos/main/ministerio-salud/covid/ultimafecha_CSV_GENERAL.csv', 
    sep = ","
  )

# Conversión de la columna de fecha a la clase Date
cr_covid19$FECHA <- as.Date(cr_covid19$FECHA, "%d/%m/%Y")

Evolución de los casos a través del tiempo

Gráfico generado con plot()

Gráfico generado con ggplot()

Gráfico generado con plot_ly()

Gráfico generado con ggplot()

### Gráfico generado con plot_ly()